home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
newsgroups
/
misc.19971216-19980424
/
000212_news@newsmaster….columbia.edu _Wed Feb 11 13:58:28 1998.msg
< prev
next >
Wrap
Internet Message Format
|
2020-01-01
|
4KB
Return-Path: <news@newsmaster.cc.columbia.edu>
Received: from newsmaster.cc.columbia.edu (newsmaster.cc.columbia.edu [128.59.35.30])
by watsun.cc.columbia.edu (8.8.5/8.8.5) with ESMTP id NAA06010
for <kermit.misc@watsun.cc.columbia.edu>; Wed, 11 Feb 1998 13:58:23 -0500 (EST)
Received: (from news@localhost)
by newsmaster.cc.columbia.edu (8.8.5/8.8.5) id NAA28907
for kermit.misc@watsun; Wed, 11 Feb 1998 13:58:22 -0500 (EST)
Path: news.columbia.edu!panix!news.eecs.umich.edu!nntprelay.mathworks.com!cam-news-hub1.bbnplanet.com!boston-news-feed1.bbnplanet.com!news.bbnplanet.com!duck.Fluent.COM!not-for-mail
From: John Stoffel <jfs@fluent.com>
Newsgroups: comp.protocols.kermit.misc
Subject: Making kermit 6.0 hangup network dials properly
Date: 11 Feb 1998 13:50:39 -0500
Organization: Fluent Inc., Lebanon NH
Lines: 80
Message-ID: <rm4t26x9fk.fsf@fluent.com>
NNTP-Posting-Host: jfs.fluent.com
X-Newsreader: Gnus v5.4.66/Emacs 19.34
Xref: news.columbia.edu comp.protocols.kermit.misc:8398
I've got a script I've written to send data to a bank. It's pretty
simple and does the job of sending a file to a remote site. But I
can't get it to quit or close the session properly. Yes, I did buy
the Kermit book, but it hasn't been helpful. Probably because I
haven't read it cover to cover, but I haven't had the time.
Here's the script I'm running. I know it's a hack since I first wrote
it from the examples in the source and from reading the man page and
other docs. The book shows me the much better ways to do this, but
alas, time is short.
The message I get at the end is:
A network connection to grumpy:2004 might still be active.
OK to exit?
And I really just want the script to hangup and exit without any
prompts.
; Kermit 6.02 script for sending direct deposit info to the bank.
; written by JFS - 1/15/1998 version 1.0 ; todo set it up so we can
; try multiple grumpy ports
; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
set input case ignore
set input echo on
; check we're running this on mtw
xif not equal "\v(host)" "mtw" { echo, echo You must run this on the host MTW, echo, quit 0 }
; We're going to use grumpy's modems to make the connection
set network TCP/IP
set host grumpy 2004
xif NOT SUCCESS { quit }
set modem type microcom-at-mode
input 4 Username:
output FOO\13
input 2 Password:
output FOO\13
minput 2 {Password OK} {% Access denied}
xif SUCCESS {echo, echo "found grumpy", echo} else {hangup, quit 0}
pause 5
xif = 1 \v(minput) { echo, echo Password OK, echo }
xif = 2 \v(minput) { echo Access denied by grumpy, hangup, quit 0 }
; now dial the bank
dial 1-xxx-xxx-xxxx
xif SUCCESS { echo, echo sending file now, echo }
for \%i 1 3 1 { ; Try 3 times to get prompt
output \13 ; Send <CR>
reinput 5 ONLYC ; Wait for "CCC..."
if success break
}
xif fail { echo Failed to get ECHOC..., quit 0 }
send tape
xif SUCCESS { echo, echo File is sent, echo }
; why doesn't this work?
hangup
hangup
exit
Does anyone have a solution to this? Even just a page number would
help. Thanks.
John
John Stoffel - Senior Unix Systems Administrator - Fluent, Inc.
jfs@fluent.com - http://www.fluent.com - 603-643-2600 x341
Geological time is not money. - Mark Twain